home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_40.arc / SCANNER.ARC / CONFIG.MOD next >
Encoding:
Modula Definition  |  1988-01-11  |  1.0 KB  |  24 lines
  1. (* Code from Pascal column in Micro Cornucopia Issue #38 *)
  2.  
  3. DEFINITION MODULE Config;
  4.  
  5. (* This module provides the basic constants which define the graphics screen.
  6.    Xsize is in pixels, Ysize is in rows, Unused is in Bytes (the interleaved
  7.    formats have a few bytes left over in each interleaved array) and
  8.    ScrSegment is the segment address of the screen memory.  Use the values
  9.    for the type of your display adapter.  This definition module is the only
  10.    one which needs to be different for the different adapters.*)
  11.  
  12. (* Depending on the compiler, you may need this EXPORT
  13.    EXPORT QUALIFIED Xsize, Ysize, Interleave, Unused, ScrSegment; *)
  14.  
  15. CONST    (*     HGA           CGA               EGA   *)
  16.    Xsize =      720;     (*   640               640   *)
  17.    Ysize =      348;     (*   200               350   *)
  18.    Interleave =   4;     (*     2                 1   *)
  19.    Unused =     362;     (*   192                 0   *)
  20.    ScrSegment = 0b000h;  (* 0b800h            0a000h  *)
  21.  
  22. END Config.
  23.  
  24.